home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO039.dsk / TIME.OUT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  733b  |  16 lines
  1. 10  &  SCRN( 0): &  INPUT (3)
  2. 100  &  HOME : PRINT "TIME OUT DEMO": PRINT : PRINT : PRINT 
  3. 110  PRINT "Enter a number from 1 to 255"
  4. 120  PRINT "(each unit equals 20 seconds)": PRINT 
  5. 130  & TIMER STOP : &  INPUT (2)
  6. 140  INPUT "Inactivity timeout duration? ";T
  7. 150  & TIMER(T): & WHEN  NOT  ON LINE GOTO 200: & TIMER ON 
  8. 160  PRINT "Don't press a key for "T *20" seconds."
  9. 170  PRINT "You'll be asked a question shortly."
  10. 180  PRINT "After answering, press Return.": PRINT 
  11. 190  PRINT "Wait...";: GET A$
  12. 200  PRINT : PRINT : PRINT "That's what it looks like when a"
  13. 210  PRINT "timeout occurs.  Don't answer"
  14. 220  PRINT "next time, and see what it does.": PRINT 
  15. 230  PRINT "Try the timer in immediate mode, too."
  16. 240  & TIMER STOP